|===========================================================================|
| Common menu definitions for Director
| (C) The RISC OS Director Developers 2003
|===========================================================================|

| Set DirectorOptions

DirectorOptions -minwimpslot 200k -maxwimpslot 200K


| Set system variables

|   Icon numbers

SetEval	WorkArea		&FFFFFFFF
SetEval	BackIcon		&FFFFFFFE
SetEval	CloseIcon		&FFFFFFFD
SetEval	TitleBar		&FFFFFFFC
SetEval	ToggleSizeIcon		&FFFFFFFB
SetEval	ScrollUpArrow		&FFFFFFFA
SetEval	VerticalScrollBar	&FFFFFFF9
SetEval	ScrollDownArrow		&FFFFFFF8
SetEval	AdjustSizeIcon		&FFFFFFF7
SetEval	ScrollLeftArrow		&FFFFFFF6
SetEval	HorizontalScrollBar	&FFFFFFF5
SetEval	ScrollRightArrow	&FFFFFFF4
SetEval	OuterWindowFrame	&FFFFFFF3
SetEval	IconiseIcon		&FFFFFFF2

|   Colour numbers

SetEval	Director$White	0
SetEval	Director$Grey1	1
SetEval	Director$Grey2	2
SetEval	Director$Grey3	3
SetEval	Director$Grey4	4
SetEval	Director$Grey5	5
SetEval	Director$Grey6	6
SetEval	Director$Black	7
SetEval	Director$Blue	8
SetEval	Director$Yellow	9
SetEval	Director$Green	10
SetEval	Director$Red	11
SetEval	Director$Cream	12
SetEval	Director$Khaki	13
SetEval	Director$Orange	14
SetEval	Director$Cyan	15

|   Internal numbers used by Director

SetEval	IconBar			&FFFFFF00
SetEval	WindowOpen		&FFFFFF01
SetEval	WindowClose		&FFFFFF02
SetEval	WindowNull		&FFFFFF03
SetEval	WindowDragTo		&FFFFFF04
SetEval	WindowDragFrom		&FFFFFF05
SetEval	WindowInit		&FFFFFF06
SetEval	WindowTornOff		&FFFFFF07
SetEval	WindowClickDelete	&FFFFFF08
SetEval	WindowClickCloseDown	&FFFFFF08
	| Should really be using WindowClickDelete, but kept for compatability
SetEval	WindowClickHelp		&FFFFFF09
SetEval	WindowClickQuit		&FFFFFF0A


| If the command below produces an error then you have an old version of
| IfThereIs installed somewhere on your Run$Path (look in the Library).
| Replace with the one in !Director.Utils
IfThereIs -X -file OldversionofIfThereIsdetected |

| Force a screen redraw
Set Alias$RedrawScreen SWI Wimp_Initialise 310 &4B534154 "Redraw"|MSWI Wimp_ForceRedraw -1 0 0 &7FFF &7FFF


| Select a new set of window furniture
Set Alias$NewTools ToolSprites %0|MRedrawScreen|M


| Select a new set of icons
Set Alias$NewIcons IconSprites %*0|MRedrawScreen|M


| Pick an object from a directory and apply a command to it
| TreePick <menu text> <type> <directory> <menu sprite name> <command for each entry>
Set Alias$TreePick IfThereIs -Dir -X %2 "Option ""%0"" -sprite %3 -sub ""Dynamic:/Director:Menus.Files.TreePick -type %1 -dir %2 -command """"%*4"""""""


| Pick an object from a directory and apply a submenu to it
| TreePick <menu text> <type> <directory> <menu sprite name> <command for each entry>
Set Alias$TreePickSub IfThereIs -Dir -X %2 "Option ""%0"" -sprite %3 -sub ""Dynamic:/Director:Menus.Files.TreePick -submenu -type %1 -dir %2 -command """"%*4"""""""


| Pick an object from a directory and apply a command to it
| TreePickNoSpr <menu text> <type> <directory> <command for each entry>

Set Alias$TreePickNoSpr IfThereIs -Dir -X %2 "Option ""%0"" -sub ""Dynamic:/Director:Menus.Files.TreePick -type %1 -dir %2 -command """"%*3"""""""

|
Set Alias$DirectorTaskWindow /Director:Menus.Internal.TaskWindow %*0


|---------------------------------------------------------------------------|

| Setup the Director Filters

|	Open a Filer MenuMenu when you click select and menu over the title bar
|	of any window.

DirectorFilter "Title Bar MenuMenu" * "Dynamic:UnSet Director$CurrentLeaf||M/Director:Menus.Files.MenuMenu" -icon TitleBar -select -menu

|	Open a Filer MenuMenu when you click shift and menu over the title bar
|	of any window (as Select and Menu is harder to do on a scroll wheel mouse)

DirectorFilter "Title Bar MenuMenu (shift)" * "Dynamic:UnSet Director$CurrentLeaf||M/Director:Menus.Files.MenuMenu" -icon TitleBar -shift -menu


|	Opens a directory menu when you click menu over the title bar of any
|	window.

DirectorFilter "Title Bar Directory" * Path: -icon TitleBar -menu


|	Opens a directory menu when you press Alt and click menu over a filer
|	window.
|
|DirectorFilter "Alt Menu Directory" Filer Path: -menu -alt

|	Opens the window menu when you press Alt and click menu over any
|	window.

DirectorFilter "Alt Menu Window" * "Dynamic:/Director:Menus.System.Close" -icon WorkArea -menu -alt


|	Opens a menu called pinboard when you click menu over the pinboard
|	background.

DirectorFilter "Pinboard" Pinboard Pinboard -icon WorkArea -menu


|	Opens the close window menu when you click menu over the close icon
|	of any window.

DirectorFilter "Close Icon" * "Dynamic:/Director:Menus.System.Close" -icon CloseIcon -menu


|	Opens the close window menu when you press Ctrl and click menu over the
|	title bar of any window.

DirectorFilter "Ctrl Menu Title Bar Close" * "Dynamic:/Director:Menus.System.Close" -icon TitleBar -menu -ctrl


|	Opens the menu of <Root$Dir> when you click both select and menu over
|	the background of the Pinboard.
|
|DirectorFilter "Pinboard Root" Pinboard "Path:<Root$Dir>" -icon WorkArea -menu -select

|	Opens the Mode menu when you click adjust over the Display Manager
|	or Palette Utility iconbar icons.

If "<Director$OSVersion>" >= "350" Then DirectorFilter "Display ManagerAdjust" "Display Manager" "Mode" -icon IconBar -adjust
If "<Director$OSVersion>" = "310" Then DirectorFilter "Palette Utility Adjust" "Palette Utility" "Mode" -icon IconBar -adjust


|	Opens a PCDirMenu when you click adjust and menu over the title bar
|	of any window.

| DirectorFilter "Title Bar PCMenu" *  "Dynamic:/Director:Menus.Files.PCDirMenu -mouse" -icon TitleBar -menu -adjust


|	Opens the Switch menu when you click menu over the backicon of any
|	window.

DirectorFilter "Back IconMenu" * "Dynamic:/Director:Menus.System.Switch" -icon BackIcon -menu


|	Opens the Switch menu when you click adjust over the Task Manager

DirectorFilter "TaskManager Window Filter" "Task Manager" "Dynamic:/Director:Menus.System.Switch" -icon Iconbar -adjust

|	Bring the window to the top of the stack if it's not,
|	or move it to the bottom if it is.

DirectorFilter "Front Back" * "Command:/Director:Menus.System.FrontBack" -select -alt -menu -ctrl


|	Clicks on the Back Icon

|	Adjust click over the back icon brings the window to the top.
|	RISC OS 5 and the A9 already does this, so only do this under RISC OS 4 or less

Set Director$DoBackIcon 0
RMEnsure WindowManager 6.15 Set Director$DoBackIcon 1
If "<Director$OSVersion>" >= "500" Then Set Director$DoBackIcon 0
If "<Director$DoBackIcon>" = "1" Then DirectorFilter "Front Back (top)" * "Command:/Director:Menus.System.FrontBack -top" -icon BackIcon -adjust


|	Adjust shift click over the back icon moves the window up one
|	in the window stack.
|	RISC OS 5 and the A9 already does this, so only do this under RISC OS 4 or less

If "<Director$DoBackIcon>" = "1" Then DirectorFilter "Front Back (up)" * "Command:/Director:Menus.System.FrontBack -up" -icon BackIcon -adjust -shift


|	Select shift click over the back icon moves the window down one
|	in the window stack.
|	RISC OS 5 and the A9 already does this, so only do this under RISC OS 4 or less

If "<Director$DoBackIcon>" = "1" Then DirectorFilter "Front Back (down)" * "Command:/Director:Menus.System.FrontBack -down" -icon BackIcon -select -shift

Unset Director$DoBackIcon


|	The following 6 filters set up a scroll menu on the six window border
|	scroll icons

DirectorFilter "Scroll menu (up)" * "Dynamic:/Director:Menus.System.Scroll" -icon ScrollUpArrow -menu
DirectorFilter "Scroll menu (vert)" * "Dynamic:/Director:Menus.System.Scroll" -icon VerticalScrollBar -menu
DirectorFilter "Scroll menu (down)" * "Dynamic:/Director:Menus.System.Scroll" -icon ScrollDownArrow -menu
DirectorFilter "Scroll menu (left)" * "Dynamic:/Director:Menus.System.Scroll" -icon ScrollLeftArrow -menu
DirectorFilter "Scroll menu (horiz)" * "Dynamic:/Director:Menus.System.Scroll" -icon HorizontalScrollBar -menu
DirectorFilter "Scroll menu (right)" * "Dynamic:/Director:Menus.System.Scroll" -icon ScrollRightArrow -menu


|	The following 2 filters set up a 'scroll here' feature on the vertical
|	and horizontal and scroll bars which scrolls the window so that the
|	relevant scroll bar is centred below the mouse pointer

DirectorFilter "Scroll here (vert)" * "Command:/Director:Menus.System.Scroll -dir v -calc" -icon Verticalscrollbar -alt -select
DirectorFilter "Scroll here (horiz)" * "Command:/Director:Menus.System.Scroll -dir h -calc" -icon horizontalscrollbar -alt -select


|---------------------------------------------------------------------------|

| Setup Director Icons

DirectorIcon !Director "00:00" -left -priority &0E000000 -menu Director -select Paths -adjust Pinboard -time <37>24:%MI -dragto "Dynamic:/Director:Menus.Files.MenuMenu" -dragfrom "*Command:Dir |<Director$CurrentDir>"


|---------------------------------------------------------------------------|

| Setup Director Windows

DirectorWindow Info -alias DirectorInfo -file <Director$Resources>Templates -command <Director$Dir>.Menus.Internal.Info


|---------------------------------------------------------------------------|

Menu "Director"
	Option "Info" -sub "Window:DirectorInfo"
Dash
	Option -path <Director$Dir>
	IfThereIs <Director$Dir>.^.Docs "Option ""Docs"" -path <Director$Dir>.^.Docs"
	IfThereIs <Director$Dir>.Docs "Option ""Docs"" -path <Director$Dir>.Docs"
	IfThereIs <Director$Dir>.^.NewDocs "Option ""New docs"" -path <Director$Dir>.^.NewDocs"
Option "Edit" -sub CurrentMenu -sprite small_path
	Option "Menus" -sprite small_dir -sub "Dynamic:/Director:Menus.System.ExpPath Director:Menus"
	Option "Utils" -sprite small_dir -sub "Dynamic:/Director:Menus.System.ExpPath Director:Utils"
Dash
	Option "Menus" -sub "Dynamic:/Director:Menus.Internal.Enumerate -type 0"
|	Option "Displayed" -sub "Dynamic:/Director:Menus.Internal.Enumerate -type 1"
	Option "Icons" -sub "Dynamic:/Director:Menus.Internal.Enumerate -type 2"
	Option "Filters" -sub "Dynamic:/Director:Menus.Internal.Enumerate -type 3"
	Option "Windows" -sub "Dynamic:/Director:Menus.Internal.Enumerate -type 4"
	Option "Memory" -sub "Dynamic:/Director:Menus.Internal.Memory"
|Dash
|	Option "" -len 64 -sub "GSTrans:|<MenuText>" -fg <Director$Khaki>
Dash
	Option "Quit"
		Command Quit:
EndMenu

|---------------------------------------------------------------------------|

Menu "CurrentMenu" CurrentMenu
	Option "Edithot keys"
		Command DirectorEdit Director:Menus.AutoRun.!!SetVars
	Option "Debughot keys"
		Command TaskWindow " Director:Menus.AutoRun.!!SetVars -v" -quit
	Option "Reloadhot keys"
		Command DirectorObey Director:Menus.AutoRun.!!SetVars
Dash
	Option "View !Core"
		Command DirectorEdit <Director$Dir>.Menus.AutoRun.!Core
|	Option "Debug !Core"
|		Command TaskWindow "DirectorObey <Director$Dir>.Menus.AutoRun.!Core -v" -quit
|	Option "Reload !Core"
|		Command DirectorObey <Director$Dir>.Menus.AutoRun.!Core
	TreePickNoSpr ViewAutomenus Obey <Director$Dir>.Menus.AutoRun DirectorEdit %0
		Command Filer_OpenDir <Director$Dir>.Menus.AutoRun
Dash
	TreePickNoSpr Editmymenus Obey Director:Menus.AutoRun DirectorEdit %0
		Command Filer_OpenDir Director:Menus.AutoRun
|Dash
	Option "Edit'<Director$Init>'"
		Command DirectorEdit Director:Menus.User.<Director$Init>
	Option "Debug '<Director$Init>'"
		Command TaskWindow "DirectorObey Director:Menus.User.<Director$Init> -v" -quit
	Option "Reload '<Director$Init>'"
		Command DirectorObey Director:Menus.User.<Director$Init>
Dash
	Option "Reload all"
		Command Obey <Director$Dir>.Menus.Internal.ReloadMenu
EndMenu

|---------------------------------------------------------------------------|

Menu "Desktop"
	Option "Chars" -sub *
	Option "Mode" -sub *
	Option "Fonts" -sub *
	Option "Backdrop" -sub *
	Option "Icons" -sub *
	Option "Tools" -sub *
	Option "Palettes" -sub *
	Option "MouseStep" -sub *
	Option "Tasks" -sub "Dynamic:/Director:Menus.System.Tasks"
Dash
	if "<Director$Key$PrinterWindow>" <> "" then Option "Printer Window" -key Print else Option "Printer Window"
		Command Filer_OpenDir Printer::$
	if "<Director$Key$LoseCaret>" <> "" then Option "Lose Caret" -key <Director$Key$LoseCaret> else Option "Lose Caret"
		Command TaskWindow "SWI Wimp_SetCaretPosition -1 -1" -quit
|	Option "Factor" -sub *
	Option "Hourglass Off"
		Command SWI Hourglass_Smash|mSWI OS_Byte 106 1
EndMenu

|---------------------------------------------------------------------------|

Menu "System"
	if "<Director$Key$Time>" <> "" then Option "Time" -sub "Dynamic:DirectorObey Director:Menus.System.Time" -key <Director$Key$Time> else Option "Time" -sub "Dynamic:DirectorObey Director:Menus.System.Time"
	Option "Memory" -sub "Dynamic:/Director:Menus.System.FreeMem"
	Option "Dynamic Areas" -sub "Dynamic:/Director:Menus.System.DynamcArea"
	Option "Modules" -sub *
	Option "Scrap" -sub *
	Option "Network" -sub *
	Option "Variables" -sub *
Dash
	if "<Director$Key$ScreenBlank>" <> "" then Option "ScreenBlank" -sub "*" -key <Director$Key$ScreenBlank> else Option "ScreenBlank" -sub "*"
		Command "SWI ScreenBlanker_Control 0"
	Option "Hourglass Off"
		Command SWI Hourglass_Smash|mSWI OS_Byte 106 1
EndMenu

|---------------------------------------------------------------------------|

Menu "Filing"
	if "<Director$Key$OpenFiles>" <> "" then Option "Open Files" -sub "Dynamic:/Director:Menus.System.Openfiles" -key <Director$Key$OpenFiles> else Option "Open Files" -sub "Dynamic:/Director:Menus.System.Openfiles"
	Option "Biggest files"
		Command TaskWindow "Biggest -n 100" -quit -wimpslot 128k -name Biggest
	Option "Biggest dirs"
		Command TaskWindow "Biggest -d" -quit -wimpslot 128k -name Biggest
	if "<Director$Key$SetCSD>" <> "" then Option "Set CSD" -key <Director$Key$SetCSD> else Option "Set CSD"
		Command DirectorMouseDir a|MIf "|<a>"<>"" Then Dir |<a>|MIf "|<a>"<>"" Then SWI "Sound_Control" 1 -15 147 1
	Option "Close Filers"
		Command /Director:Menus.System.DoClose -do CloseAllTask Filer
	Option "No spin down"
		Command SWI ADFS_PowerControl 1 4 0
	if "<Director$Key$Memoriser>" <> "" then Option "Memoriser" -sub "*" -key <Director$Key$Memoriser> else Option "Memoriser" -sub "*"
EndMenu

|---------------------------------------------------------------------------|

If "<Director$OSVersion>" >= "350" Then MenuProcessing Off
If "<Director$Key$Modes>" <> "" Then Menu "Mode" -key <Director$Key$Modes> Else Menu "Mode"
	Option "0  - 640 x 256"
		Command WimpMode 0
	Option "12 - 640 x 256"
		Command WimpMode 12
	Option "13 - 320 x 256"
		Command WimpMode 13
	Option "20 - 640 x 512"
		Command WimpMode 20
	Option "15 - 640 x 256"
		Command WimpMode 15
	Option "21 - 640 x 512"
		Command WimpMode 21
	Option "27 - 640 x 480"
		Command WimpMode 27
	Option "31 - 800 x 600"
		Command WimpMode 31
	Option "28 - 640 x 480"
		Command WimpMode 28
	Option "31 - 800 x 600"
		Command WimpMode 31
Dash
	Option "" -len 16 -allow "0-9"
		Command WimpMode <MenuText>
EndMenu
MenuProcessing On

If "<Director$OSVersion>" < "350" Then MenuProcessing Off
If "<Director$Key$Modes>" <> "" Then Menu "Mode" -key <Director$Key$Modes> Else Menu "Mode"
	Option "XxY" -sub "Dynamic:/Director:Menus.Modes.ByXxY"
Dash
	Option "2" -sub "Dynamic:/Director:Menus.Modes.ByColour -lbpp 0"
	Option "4" -sub "Dynamic:/Director:Menus.Modes.ByColour -lbpp 1"
	Option "16" -sub "Dynamic:/Director:Menus.Modes.ByColour -lbpp 2"
	Option "256" -sub "Dynamic:/Director:Menus.Modes.ByColour -lbpp 3"
	Option "32T" -sub "Dynamic:/Director:Menus.Modes.ByColour -lbpp 4"
	Option "16M" -sub "Dynamic:/Director:Menus.Modes.ByColour -lbpp 5"
Dash
	Option "16 Col"
		Command WimpMode  X1280 Y1024 C16
	Option "256 Col"
		Command WimpMode  X1280 Y1024 C256
	Option "32T Col"
		Command WimpMode  X1184 Y885 C32T
	Option "16M Col"
		Command WimpMode  X832 Y630 C16M
	Option "256 SVGA"
		Command "WimpMode X800 Y600 C256"
	Option "256 VGA"
		Command "WimpMode X640 Y480 C256"
Dash
	Option "" -len 32
		Command WimpMode <MenuText>
EndMenu
MenuProcessing On

|---------------------------------------------------------------------------|

Menu "Fonts"
	Option "Font path" -sub "Dynamic:/Director:Menus.System.ExpPath Font:"
	Option "Font cache" -sub "Dynamic:/Director:Menus.System.CommMenu FontList"
If "<Director$OSVersion>" >= "350" Then Option "Desktop Font" -sub "Dynamic:/Director:Menus.System.Fontmenu"
	Option "Reset System Font"
		Command fx 20|MRedrawScreen
EndMenu

|---------------------------------------------------------------------------|

Menu "Modules"
	Option "List loaded" -sub "Dynamic:/Director:Menus.System.Modules"
	Option "View !System" -sub "Dynamic:/Director:Menus.System.ExpPath System: .Modules"
EndMenu

|---------------------------------------------------------------------------|

Menu "Network"
	Option "Sockets" -sub "Dynamic:/Director:Menus.System.Sockets d"
	Option "Sockets2" -sub "Dynamic:/Director:Menus.System.Opensocks"
EndMenu

|---------------------------------------------------------------------------|

Menu "Scrap"
	Option "List all" -sub "Dynamic:/Director:Menus.Files.ExplodeDir -dir |||<Wimp$ScrapDir> -title Scrap -sub Director:Menus.Files.ScrapDir -add Purge -do Director:Menus.Files.ScrapPurge"
	Option "Browse" -path |<Wimp$ScrapDir> -up
EndMenu

|---------------------------------------------------------------------------|

| Provides the value of a variable as a writable menu option

Set Alias$VarVal Set Director$Menu Value|MMenu |"%1|" Value -temp|MOption "|<%0>" -len 256|MIf "%2"<>"" Then Option "%2" -sub "Dynamic:/Director:Menus.System.ExpPath %1"|MCommand Set %0 |<MenuText|>|MEndMenu|M

| A neater way of adding options to the 'variables' menu

Set Alias$ListVar Option |"%0|" -sub |"Dynamic:/Director:Menus.System.Variables -match %0 -not %1|"

Menu Variables
	ListVar *
	ListVar Sys$*
	ListVar *Director*
Dash
	ListVar *$Dir
	ListVar *$Path
	ListVar FileSwitch$*
Dash
	ListVar Alias$* @
Dash
	ListVar File$Type*
	ListVar Alias$@LoadType*
	ListVar Alias$@RunType*
	ListVar *Options
Dash
if "<Director$OSVersion>" >= "400" then Option "" -len 32  -sub "Dynamic:/Director:Menus.System.Variables -match |<MenuText>" -fg <Director$Red>
if "<Director$OSVersion>" < "400" then Option "" -len 32  -sub "Dynamic:/Director:Menus.System.Variables -match |<MenuText>" -bg <Director$Grey1>
EndMenu

|---------------------------------------------------------------------------|

Menu "MouseStep"
	Option "8 "
		Command Set OWB$ "|<2>|<8>|<8>|<0>"|MSWI OS_Word 21 |<OWB$>|MUnSet OWB$
	Option "6 "
		Command Set OWB$ "|<2>|<6>|<6>|<0>"|MSWI OS_Word 21 |<OWB$>|MUnSet OWB$
	Option "4 "
		Command Set OWB$ "|<2>|<4>|<4>|<0>"|MSWI OS_Word 21 |<OWB$>|MUnSet OWB$
if "<Director$OSVersion>" >= "400" then Option "2" -len 3 -fg <Director$Red> -allow "0-9"
if "<Director$OSVersion>" < "400" then Option "2" -len 3 -bg <Director$Grey1> -allow "0-9"
		Command Set OWB$ "|<2>|<<MenuText>>|<<MenuText>>|<0>"|MSWI OS_Word 21 |<OWB$>|MUnSet OWB$
EndMenu

|---------------------------------------------------------------------------|

Menu ScreenBlank
	Option "Blank now"
		Command "SWI ScreenBlanker_Control 0"
	Option "Off"
		Command "BlankTime 0"
	Option "1 Min"
		Command "BlankTime 60"
	Option "5 Mins"
		Command "BlankTime 300"
	Option "10 Mins"
		Command "BlankTime 600"
EndMenu

|---------------------------------------------------------------------------|

RMEnsure AddSprites 0.00 MenuProcessing Off

Menu "AddSprites"
	Option "Large icons" -sub "Dynamic:/Director:Menus.System.AddSprSub Control"
	Option "Small icons" -sub "Dynamic:/Director:Menus.System.AddSprSub Small"
EndMenu

RMEnsure AddSprites 0.00 MenuProcessing On

|---------------------------------------------------------------------------|

Menu "Save icons" SaveIcons
Set Director$Tmp RISCOS5
RMEnsure UtilityModule 5.00 Set Director$Tmp Select3
RMEnsure UtilityModule 4.36 Set Director$Tmp RISCOS4
IF "<Director$Tmp>" = "Select3" Then MenuProcessing Off
	Option "ROM"
		Command SWI Wimp_BaseOfSprites TO rom|MSWI OS_SpriteOp &10C |<rom> "<Wimp$Scrap>"|MFiler_Run <Wimp$Scrap>
	Option "RAM"
		Command SWI Wimp_BaseOfSprites TO rom rma|MSWI OS_SpriteOp &10C |<rma> "<Wimp$Scrap>"|MFiler_Run <Wimp$Scrap>
MenuProcessing Toggle
	Option "Priority pool"
		Command SWI Wimp_ReadSysInfo 19 TO pri|mSWI OS_SpriteOp &10C |<pri> "<Wimp$Scrap>"|MFiler_Run <Wimp$Scrap>
	Option "High pool"
		Command SWI Wimp_ReadSysInfo 19 TO pri high|mSWI OS_SpriteOp &10C |<high> "<Wimp$Scrap>"|MFiler_Run <Wimp$Scrap>
	Option "Low pool"
		Command SWI Wimp_ReadSysInfo 19 TO pri high low|mSWI OS_SpriteOp &10C |<low> "<Wimp$Scrap>"|MFiler_Run <Wimp$Scrap>
MenuProcessing On
EndMenu

|---------------------------------------------------------------------------|

Menu "Factor"
	Option "" -len 10 -sub "Dynamic:/Director:Menus.System.Factor -n |<MenuText>" -allow "0-9"
EndMenu

|---------------------------------------------------------------------------|

Menu "Pinboard" "Pinboard"
	Option "Paths" -sub *
	Option "Director" -sub *
		Command Filer_OpenDir <Director$Dir>
Dash
	Option "Desktop" -sub *
	Option "System" -sub *
	Option "Filing" -sub *
Dash
	Option "ROM" -sub "Path:Resources:$"
		Command Filer_Run Resources:$
	Option "Apps" -sub "Path:|<Apps$Dir>"
		Command DirectorDo Filer_Run |<Apps$Dir>
Dash
	if "<Director$Key$Notes>" <> "" then Option Notes -sub "Dynamic:/Director:Menus.IntNotes.Show" -sprite smnotes -key <Director$Key$Notes> else Option Notes -sub "Dynamic:/Director:Menus.IntNotes.Show" -sprite smnotes
Dash
	if "<Director$OSVersion>" >= "400" then Option "Pinboard" -sub "OldMenu:" -fg <Director$Blue>
	if "<Director$OSVersion>" < "400" then Option "Pinboard" -sub "OldMenu:" -bg <Director$Grey1>
EndMenu

|---------------------------------------------------------------------------|

Menu "Paths" "Paths"
	Option "Drives" -sub "Dynamic:/Director:Menus.System.FindDrives"
Dash
	Option -path |<Root$Dir> -up
	Option -path |<Boot$Dir> -up
	Option -path |<Apps$Dir> -up
	Option -path |<Choices$Write> -up
	Option "Modules" -sub * -sprite sm!system
	Option "Scrap" -sub * -sprite sm!scrap
	Option "Run:" -sub "Dynamic:/Director:Menus.System.ExpPath Run:" -sprite small_path
|	Option -path % -up
|	Option -path @ -up
EndMenu

|---------------------------------------------------------------------------|

Menu Chars
	Option ""		-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""		-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""	-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""	-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""		-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""		-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""		-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""		-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""		-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""		-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""	-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option "ߵ"		-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""	-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option "ƚ"		-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""	-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""	-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""	-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option ""	-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option "ނ"	-sub "Dynamic:/Director:Menus.System.CharsSub"
	Option "݅"		-sub "Dynamic:/Director:Menus.System.CharsSub"
EndMenu

|---------------------------------------------------------------------------|
